home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Caml Light 0.7 / examples / grep / fastrec.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-06-01  |  495 b   |  20 lines  |  [TEXT/MPS ]
  1. /* La version C de la fonction determ__reconnait */
  2.  
  3. #include "mlvalues.h"
  4.  
  5. value reconnait(automate, chaine)
  6.         value automate, chaine;
  7. {
  8.   value etat_courant, transition;
  9.   int i, longueur;
  10.  
  11.   etat_courant = automate;
  12.   longueur = string_length(chaine);
  13.   for (i = 0; i < longueur; i++) {
  14.     transition = Field(Field(etat_courant, 0), Byte_u(chaine, i));
  15.     if (Tag_val(transition) == 1) return Val_false;
  16.     etat_courant = Field(transition, 0);
  17.   }
  18.   return Field(etat_courant, 1);
  19. }
  20.